home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / MATH / VLN_20 / LNK23.PAS < prev    next >
Pascal/Delphi Source File  |  1995-03-30  |  2KB  |  56 lines
  1. unit lnk23;  { links to  vln ops a DLL to do very large number ops}
  2.  
  3. interface
  4. {$I vlnconst.inc}
  5. const
  6.    vlSize = 1000;     {a limit of about 2^16000  }
  7.    vlmemsize = vlsize*4+4;
  8. type
  9.    pWordArray = ^tWordArray;
  10.    tWordArray = array[1..vlSize] of word;
  11.  
  12.  type pchar4 = array[0..4]of char;
  13.  
  14.  
  15.   procedure SetWkSize(n:integer);
  16.   function  GetWkSize : integer;
  17.   procedure CloseTempRegs;
  18.   procedure OpenTempRegs;
  19.   function  CreateProbVar :  integer;
  20.   procedure DeleteProbVar( n : integer);
  21.   function GetCount( regNo  : integer ) : integer;
  22.   function GetBinSize ( Reg1 : integer )  : integer;
  23.   function GetSign( regNo  : integer ) : integer;
  24.   function FlipSign( regNo  : integer ) : integer;
  25.   procedure Register_OP ( Reg1, op, Reg2 : integer);
  26.   procedure Number_OP( Reg1, op, aNum : integer);
  27.   procedure Op_2Self( Reg1, op : integer);
  28.   function  SetWord( Reg1, pos: integer; nval : word ):integer;
  29.   function  GetWord( Reg1, pos : integer) :  word ;
  30.   function  FastDiv ( Reg1, Reg2 : integer): integer;
  31.   function DivByBillion( regNo : integer ) : longint;
  32.   function Compare( Reg1, op, Reg2 : integer ): boolean;
  33.  
  34.  
  35. implementation
  36.  
  37.   procedure SetWkSize;             external 'ops23';
  38.   function GetWkSize;              external 'ops23';
  39.   procedure CloseTempRegs;         external 'ops23';
  40.   procedure OpenTempRegs;          external 'ops23';
  41.   function  CreateProbVar;         external 'ops23';
  42.   procedure DeleteProbVar;         external 'ops23';
  43.   function GetCount;               external 'ops23';
  44.   function GetBinSize;             external 'ops23';
  45.   function GetSign;                external 'ops23';
  46.   function FlipSign;               external 'ops23';
  47.   procedure Register_OP;           external 'ops23';
  48.   procedure Number_OP;             external 'ops23';
  49.   procedure Op_2Self;              external 'ops23';
  50.   function  SetWord;               external 'ops23';
  51.   function  FastDiv;               external 'ops23';
  52.   function  GetWord;               external 'ops23';
  53.   function DivByBillion;           external 'ops23';
  54.   function Compare;                external 'ops23';
  55.  
  56. end.